home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 8 / Digital_Talk_08_1994-07-17_Digital_Talk_de_Side_D.d64 / telefonmann .bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  848b  |  21 lines
  1. 1 fr=53280:pokefr,0:pokefr+1,15:poke646,0:h=100
  2. 2 print"[147]ford prefect's telefonmann"
  3. 3 input"intervall=sek.  ? 42[157][157][157][157]";ei
  4. 4 input"tarif=dm/sfr/os ? 0.23[157][157][157][157][157][157]";ge
  5. 5 ti$="000001"
  6. 6 aa=zz:a=int(ti/60)
  7. 7 xx=a/ei:zz=int(xx)+1:ifaa<>zzthenpokefr,6:pokefr,4:pokefr,2:pokefr,9:pokefr,0
  8. 8 print"dauer     : ";left$(ti$,2);"'";mid$(ti$,3,2);":";right$(ti$,2),a
  9. 9 print"kosten    :";zz*ge; "[157]  dm/sfr/os   "
  10. 10 print"relativ   :";int(xx*ge*h)/h;"[157]  dm/sfr/os   "
  11. 11 print"einheiten :";zz
  12. 12 geta$:ifa$=""then6
  13. 13 ifzz<5thenprint"das war ja ein guenstiges vergnuegen !":goto20
  14. 14 ifzz>400thenprint"hauptsache, wir sind alle gesund !":goto20
  15. 15 ifzz>300thenprint"hast du etwa im lotto gewonnen ?":goto20
  16. 16 ifzz>200thenprint"die telekom/p&t wird sich freuen !":goto20
  17. 17 ifzz<50then20
  18. 18 print"merkst du's immer erst so spaet,"
  19. 19 print"wenn du falsch verbunden bist ?"
  20. 20 print"ruf mal wieder an : 06431/25866 (brd)"
  21.